This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Sub Initialize
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.FTSearch("links",0)
Set doc = collection.GetFirstDocument()
Do While Not(doc Is Nothing)
If doc.IsDeleted Then
Messagebox "This document has been deleted"
Else
Messagebox doc.Subject(0) & _
" has not been deleted"
End If
Set doc = collection.GetNextDocument(doc)
Loop
End Sub
Feedback response number CTYR8ZB47D created by ~Mark Bubnitexader on 10/22/2012